(Info-dir-remove-duplicates): Avoid infloop when

deleting last entry.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 75944ca45ac31afc5fb2b8a7c447c0cb64587d3a..72c4a7a76476f89fe5c66e814f736fb5480c5009 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-12-18  John Paul Wallington  <jpw@shootybangbang.com>
+
+       * info.el (Info-dir-remove-duplicates): Avoid infloop when
+       deleting last entry.
+
 2002-12-17  Nick Roberts  <nick@nick.uklinux.net>
 
        * gdb-ui.el (gdba-marker-filter, gdb-output-burst): Merge and

diff --git a/lisp/info.el b/lisp/info.el
index 53630bce3a3f03a25a7e414d2706de088c9b20d5..05a56ef1c92db232f48f708d7576841175e1331b 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -967,7 +967,7 @@ a case-insensitive match is tried."
                (if (member-ignore-case x seen)
                    (delete-region (match-beginning 0)
                                   (progn (re-search-forward "^[^ \t]" nil t)
-                                         (goto-char (match-beginning 0))))
+                                         (match-beginning 0)))
                  (push x seen))))))))))
 
 ;; Note that on entry to this function the current-buffer must be the